﻿Imports Logica

Public Class AsignarSalarioVariable
    Public m_idUsuario As String

    ''' <summary>
    ''' Constructor el cual resive el id del usuario
    ''' </summary>
    ''' <param name="p_idUsuario">id de usuario</param>
    ''' <remarks>Creador por: Stephan Endres, Fecha: 30/06/2010, Modificado: 30/06/2010.</remarks>
    Public Sub New(ByVal p_idUsuario As String)
        InitializeComponent()
        m_idUsuario = p_idUsuario
    End Sub

    ''' <summary>
    ''' Asigna el id del usuario al combBox
    ''' </summary>
    ''' <param name="sender"></param>
    ''' <param name="e"></param>
    ''' <remarks>Creador por: Stephan Endres, Fecha: 30/06/2010, Modificado: 30/06/2010.</remarks>
    Private Sub AsignarSalarioVariable_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        txtIdUsuario.Text = m_idUsuario
    End Sub

    ''' <summary>
    ''' Cierra la pantalla
    ''' </summary>
    ''' <param name="sender"></param>
    ''' <param name="e"></param>
    ''' <remarks>Creador por: Stephan Endres, Fecha: 30/06/2010, Modificado: 30/06/2010.</remarks>
    Private Sub btnCancelar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCancelar.Click
        Me.Close()
    End Sub

    ''' <summary>
    ''' Realiza las validaciones
    ''' </summary>
    ''' <param name="sender"></param>
    ''' <param name="e"></param>
    ''' <remarks>Creador por: Stephan Endres, Fecha: 30/06/2010, Modificado: 30/06/2010.</remarks>
    Private Sub btnAceptar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAceptar.Click
        Dim comicion As Integer
        Dim totalGanancia As Double
        If Not txtTotalGanancia.Text = "" And Not txtTotalGanancia.Text.Trim = "" Then

            If Not txtComicion.Text = "" And Not txtComicion.Text.Trim = "" Then

                Try
                    comicion = txtComicion.Text
                    totalGanancia = txtTotalGanancia.Text

                    If comicion > 0 And comicion < 101 Then
                        If Not txtComicion.Text.Contains(",") And Not txtComicion.Text.Contains(".") Then

                            'Gestor.agregarSalarioVariable(totalGanancia, comicion, txtIdUsuario.Text)
                            If MsgBox("La asignación del salario variable se realizó con éxito", MsgBoxStyle.Information, "Asignación de bonificación metas") = MsgBoxResult.Ok Then
                                Me.Close()
                            End If
                            Me.Close()

                        Else
                            lblError.Visible = True
                            lblError.Text = "La comición no puede contener 'punto' ó 'coma' "
                        End If

                    Else
                        lblError.Visible = True
                        lblError.Text = "Solo puede ingresar valores entre 1 y 100"
                    End If
                Catch ex As Exception
                    lblError.Visible = True
                    lblError.Text = "Solo puede ingresar números"
                End Try
            Else
                lblError.Visible = True
                lblError.Text = "El campo 'Comición' está vacío."
            End If
        Else
            lblError.Visible = True
            lblError.Text = "El campo 'Total de ventas' está vacío."
        End If
    End Sub

End Class